Problem 1

Chart A

## Warning: Ignoring 615 observations

## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors

Chart B

# Plot scores for WaHi/Inwood bakeries
wahi_bakery <- bakery_inspec %>%
  group_by(dba) %>%
  filter(zipcode %in% c("10031", "10032", "10033", "10034", "10040"))

## make plot ##

Chart C

nyc_inspections %>%
  filter(boro != "Missing") %>% 
  plot_ly(x = ~boro, y=~score, color = ~critical_flag, type = "bar")

## Warning: Ignoring 22346 observations

Chart D

nyc_inspections %>%
  filter(boro != "Missing") %>%
  plot_ly(y=~score, color = ~boro, type = "box")

## Warning: Ignoring 22346 observations